home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / vernon.zip / POWER.PAS < prev    next >
Pascal/Delphi Source File  |  1989-03-01  |  552b  |  19 lines
  1.  
  2.      {This function calculates the value of Z raised to the Nth power. }
  3.  
  4.     function Power  (z : REAL; n : INTEGER) : REAL;
  5.        var COUNT : integer; PRODUCT : REAL;
  6.            POWER1 : REAL;
  7.        begin
  8.             PRODUCT := 1.0;
  9.             for COUNT := 1 to abs(n) do
  10.                PRODUCT := PRODUCT * Z;
  11.             if N >= 0 then
  12.                POWER := PRODUCT
  13.             else
  14.             POWER := 1.0 / PRODUCT;
  15.             POWER1 := 1.0 / PRODUCT;
  16.     {WRITELN ('The value for power is: ', POWER1);}
  17.          end;
  18.  
  19.